home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / TDBlockRead.asc < prev    next >
Text File  |  1980-03-12  |  1KB  |  45 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' command
  12. '  -Wb Td Open 
  13. '  -Wb Block Read
  14. '  -Wb Td Motor Off
  15. '  -Wb Td Close
  16. '
  17. Screen Open 0,640,256,16,$8000
  18. Curs Off : Flash Off : Cls 2
  19. Ink 0,2
  20. '
  21. 'Ouverture du TrackDisk
  22. A=Wb Td Open(0,0)
  23. '
  24. Reserve As Work 10,512
  25. '
  26. BL=-1
  27. While Mouse Key=0
  28.    Add BL,1,0 To 880
  29.    Text 10,200,"Block:"+Str$(BL)
  30.    Wb Block Read A,BL To Start(10)
  31.    Text 10,210,"Error:"+Str$(Wb Td Error)+" "
  32.    I=0
  33.    For T=0 To 20
  34.       I$=Peek$(Start(10)+I,24)+" "
  35.       VI=Varptr(I$)
  36.       Text 4,10+(T*9),I$+":"+(Hex$(Leek(VI),8)+" "+Hex$(Leek(VI+4),8)+" "+Hex$(Leek(VI+8),8)+" "+Hex$(Leek(VI+12),8)+" "+Hex$(Leek(VI+16),8)+" "+Hex$(Leek(VI+20),8))-"$"
  37.       Add I,24
  38.    Next T
  39. Wend 
  40. '
  41. 'Eteint le moteur
  42. Wb Td Motor Off A
  43. 'Fermeture du TrackDisk
  44. Wb Td Close A
  45.